home *** CD-ROM | disk | FTP | other *** search
/ Item MB Quick & Easy 2.0 / Item MB Quick & Easy 2.0.iso / mbfacad / eaituls.lsp < prev    next >
Text File  |  1998-03-15  |  19KB  |  470 lines
  1. ;=============ULS-Schrauben
  2.  
  3. (defun C:AITULSD4 (/ P1)
  4.    (princ (strcat "\n\n" EAITbez1))
  5.    (EAITvari)
  6.    (EAITvars)
  7.    (setq EAITmen2 "p9=*")
  8.  
  9.    (setvar "ORTHOMODE" 0)
  10.    (EAITbpt EAITofsch 32 nil)
  11.    (setq P1 (getpoint))
  12.    (if (= P1 nil)(setq P1 (EAITrpt)))
  13.    (setvar "OSMODE" 0)
  14.    (command EAITege (strcat EAITpfn "uls_M4D1") P1 "" "" "")
  15.  
  16.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 0 3) "" "" ""
  17.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  18.    )
  19.  
  20.    (EAITvarz2)
  21.    (princ)
  22. )
  23.  
  24. (defun C:AITULSDT4 (/ P1)
  25.    (princ (strcat "\n\n" EAITbez1))
  26.    (EAITvari)
  27.    (EAITvars)
  28.    (setq EAITmen2 "p9=*")
  29.  
  30.    (setvar "ORTHOMODE" 0)
  31.    (EAITbpt EAITofsch 32 nil)
  32.    (setq P1 (getpoint))
  33.    (if (= P1 nil)(setq P1 (EAITrpt)))
  34.    (setvar "OSMODE" 0)
  35.    (command EAITege (strcat EAITpfn "uls_T4D1") P1 "" "" "")
  36.  
  37.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 0 3) "" "" ""
  38.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  39.    )
  40.  
  41.    (EAITvarz2)
  42.    (princ)
  43. )
  44.  
  45. (defun C:AITULSD5 (/ P1)
  46.    (princ (strcat "\n\n" EAITbez1))
  47.    (EAITvari)
  48.    (EAITvars)
  49.    (setq EAITmen2 "p9=*")
  50.  
  51.    (setvar "ORTHOMODE" 0)
  52.    (EAITbpt EAITofsch 32 nil)
  53.    (setq P1 (getpoint))
  54.    (if (= P1 nil)(setq P1 (EAITrpt)))
  55.    (setvar "OSMODE" 0)
  56.    (command EAITege (strcat EAITpfn "uls_M5D1") P1 "" "" "")
  57.  
  58.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 0 3) "" "" ""
  59.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  60.    )
  61.  
  62.    (EAITvarz2)
  63.    (princ)
  64. )
  65.  
  66. (defun C:AITULSD6 (/ P1)
  67.    (princ (strcat "\n\n" EAITbez1))
  68.    (EAITvari)
  69.    (EAITvars)
  70.    (setq EAITmen2 "p9=*")
  71.  
  72.    (setvar "ORTHOMODE" 0)
  73.    (EAITbpt EAITofsch 32 nil)
  74.    (setq P1 (getpoint))
  75.    (if (= P1 nil)(setq P1 (EAITrpt)))
  76.    (setvar "OSMODE" 0)
  77.    (command EAITege (strcat EAITpfn "uls_M6D1") P1 "" "" "")
  78.  
  79.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 0 4) "" "" ""
  80.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  81.    )
  82.  
  83.    (EAITvarz2)
  84.    (princ)
  85. )
  86.  
  87. (defun C:AITULSD8 (/ P1)
  88.    (princ (strcat "\n\n" EAITbez1))
  89.    (EAITvari)
  90.    (EAITvars)
  91.    (setq EAITmen2 "p9=*")
  92.  
  93.    (setvar "ORTHOMODE" 0)
  94.    (EAITbpt EAITofsch 32 nil)
  95.    (setq P1 (getpoint))
  96.    (if (= P1 nil)(setq P1 (EAITrpt)))
  97.    (setvar "OSMODE" 0)
  98.    (command EAITege (strcat EAITpfn "uls_M8D1") P1 "" "" "")
  99.  
  100.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 0 5) "" "" ""
  101.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  102.    )
  103.    (EAITvarz2)
  104.    (princ)
  105. )
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113. (defun C:AITULSS4 (/ KName GName BName BlockN P1 P0 P10 P11 L Le Lk E1 E2 E3 Wi)
  114.    (EAITvari)
  115.    (EAITvars)
  116.    (setq EAITmen2 "p9=*")
  117.  
  118.    (setq L EAITlmax 
  119.          Lk 2.75
  120.          KName (strcat EAITpfn "uls_m4s1")                  ;Kopfname
  121.          GName (strcat EAITpfn (substr EAITnrx 1 7) "S")     ;Gewindename
  122.    )
  123.  
  124.    (setvar "ORTHOMODE" 0)
  125.    (EAITbpt EAITofsch 32 nil)
  126.    (setq P1 (getpoint))
  127.    (if (= P1 nil)(setq P1 (EAITrpt)))
  128.    (setvar "ORTHOMODE" 1)
  129.    (setvar "OSMODE" 0)
  130.    (EAITmsg "mb_mld12" "\n" "025" ": ")   ;Konstruktionsrichtung (Return = relativ)
  131.    (setq P0 (getpoint P1))
  132.    (if (= P0 nil)(setq P0 (EAITrpt)))
  133.    (setvar "OSMODE" 0)
  134.    (setvar "ORTHOMODE" 0)
  135.    (command EAITege KName P1 "" "" P0)
  136.    (setq E1 (entlast))
  137.    (command EAITege GName P1 "" "" P0)
  138.    (setq E2 (entlast))
  139.  
  140.    (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  141.    (setq Le (getdist P1))
  142.    (while (and (/= Le nil)(/= Le 0))
  143.       (cond
  144.          ( (<= Le  8)(EAITDBL "8000198")(setq L EAITlmax GName (strcat EAITpfn "8000198S")) )
  145.          ( (<= Le 10)(EAITDBL "8000201")(setq L EAITlmax GName (strcat EAITpfn "8000201S")) )
  146.          ( (<= Le 12)(EAITDBL "8000204")(setq L EAITlmax GName (strcat EAITpfn "8000204S")) )
  147.          ( (<= Le 14)(EAITDBL "8000207")(setq L EAITlmax GName (strcat EAITpfn "8000207S")) )
  148.          ( (<= Le 16)(EAITDBL "8000005")(setq L EAITlmax GName (strcat EAITpfn "8000005S")) )
  149.          ( (<= Le 18)(EAITDBL "8000210")(setq L EAITlmax GName (strcat EAITpfn "8000210S")) )
  150.          ( (<= Le 20)(EAITDBL "8000213")(setq L EAITlmax GName (strcat EAITpfn "8000213S")) )
  151.          ( (<= Le 25)(EAITDBL "8000219")(setq L EAITlmax GName (strcat EAITpfn "8000219S")) )
  152.          (T          (EAITDBL "8000222")(setq L EAITlmax GName (strcat EAITpfn "8000222S")) )
  153.       )
  154.       (EAITmsg "mb_mld12" "\n" "027" " ")(princ L)(EAITmsg "mb_mld13" nil "006" nil)      ;-> gewaehlt L = EAITlmax mm
  155.       (entdel E2)
  156.       (command EAITege GName P1 "" "" P0)
  157.       (setq E2 (entlast))
  158.       (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  159.       (setq Le (getdist P1))
  160.    )
  161.  
  162.    (setq Wi (angle P1 P0)
  163.          P10 (polar P1 (+ Wi (EAITgib 180)) (+ Lk 2))
  164.          P11 (polar P1 Wi (+ 2 L)) )
  165.    (command EAITlay EAITlse "EAITstp" ""
  166.             EAITlin P10 P11 "")
  167.    (setq E3 (entlast))
  168.  
  169.    (setq BlockN (EAITbnr))
  170.    (if (= Le 0) (progn (entdel E2) (command EAITblo BlockN P1 E1 E3 "" EAITege BlockN P1 "" "" "") )
  171.                 (command EAITblo BlockN P1 E1 E2 E3 "" EAITege BlockN P1 "" "" "") )
  172.  
  173.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 3)  "" "" (+ 90 (EAITbig Wi))
  174.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  175.    )
  176.  
  177.    (EAITvarz2)
  178.    (princ)
  179. )
  180.  
  181.  
  182. (defun C:AITULSST4 (/ KName GName BName BlockN P1 P0 P10 P11 L Le Lk E1 E2 E3 Wi)
  183.    (EAITvari)
  184.    (EAITvars)
  185.    (setq EAITmen2 "p9=*")
  186.  
  187.    (setq L EAITlmax 
  188.          Lk 2.75
  189.          KName (strcat EAITpfn "uls_t4s1")                  ;Kopfname
  190.          GName (strcat EAITpfn (substr EAITnrx 1 7) "S")     ;Gewindename
  191.    )
  192.  
  193.    (setvar "ORTHOMODE" 0)
  194.    (EAITbpt EAITofsch 32 nil)
  195.    (setq P1 (getpoint))
  196.    (if (= P1 nil)(setq P1 (EAITrpt)))
  197.    (setvar "ORTHOMODE" 1)
  198.    (setvar "OSMODE" 0)
  199.    (EAITmsg "mb_mld12" "\n" "025" ": ")   ;Konstruktionsrichtung (Return = relativ)
  200.    (setq P0 (getpoint P1))
  201.    (if (= P0 nil)(setq P0 (EAITrpt)))
  202.    (setvar "OSMODE" 0)
  203.    (setvar "ORTHOMODE" 0)
  204.    (command EAITege KName P1 "" "" P0)
  205.    (setq E1 (entlast))
  206.    (command EAITege GName P1 "" "" P0)
  207.    (setq E2 (entlast))
  208.  
  209.    (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Schraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  210.    (setq Le (getdist P1))
  211.    (while (and (/= Le nil)(/= Le 0))
  212.       (cond
  213.          ( (<= Le 12)(EAITDBL "0044039")(setq L EAITlmax GName (strcat EAITpfn "0044039S")) )
  214.          ( (<= Le 14)(EAITDBL "0044040")(setq L EAITlmax GName (strcat EAITpfn "0044040S")) )
  215.          ( (<= Le 16)(EAITDBL "0044041")(setq L EAITlmax GName (strcat EAITpfn "0044041S")) )
  216.          ( (<= Le 18)(EAITDBL "0044042")(setq L EAITlmax GName (strcat EAITpfn "0044042S")) )
  217.          (T          (EAITDBL "0044043")(setq L EAITlmax GName (strcat EAITpfn "0044043S")) )
  218.       )
  219.       (EAITmsg "mb_mld12" "\n" "027" " ")(princ L)(EAITmsg "mb_mld13" nil "006" nil)      ;-> gewaehlt L = EAITlmax mm
  220.       (entdel E2)
  221.       (command EAITege GName P1 "" "" P0)
  222.       (setq E2 (entlast))
  223.       (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  224.       (setq Le (getdist P1))
  225.    )
  226.  
  227.    (setq Wi (angle P1 P0)
  228.          P10 (polar P1 (+ Wi (EAITgib 180)) (+ Lk 2))
  229.          P11 (polar P1 Wi (+ 2 L)) )
  230.    (command EAITlay EAITlse "EAITstp" ""
  231.             EAITlin P10 P11 "")
  232.    (setq E3 (entlast))
  233.  
  234.    (setq BlockN (EAITbnr))
  235.    (if (= Le 0) (progn (entdel E2) (command EAITblo BlockN P1 E1 E3 "" EAITege BlockN P1 "" "" "") )
  236.                 (command EAITblo BlockN P1 E1 E2 E3 "" EAITege BlockN P1 "" "" "") )
  237.  
  238.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 3)  "" "" (+ 90 (EAITbig Wi))
  239.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  240.    )
  241.  
  242.    (EAITvarz2)
  243.    (princ)
  244. )
  245.  
  246.  
  247. (defun C:AITULSS5 (/ KName GName BName BlockN P1 P0 P10 P11 L Le Lk E1 E2 E3 Wi)
  248.    (EAITvari)
  249.    (EAITvars)
  250.    (setq EAITmen2 "p9=*")
  251.  
  252.    (setq L EAITlmax 
  253.          Lk 2.75
  254.          KName (strcat EAITpfn "uls_m5s1")                  ;Kopfname
  255.          GName (strcat EAITpfn (substr EAITnrx 1 7) "S")     ;Gewindename
  256.    )
  257.  
  258.    (setvar "ORTHOMODE" 0)
  259.    (EAITbpt EAITofsch 32 nil)
  260.    (setq P1 (getpoint))
  261.    (if (= P1 nil)(setq P1 (EAITrpt)))
  262.    (setvar "ORTHOMODE" 1)
  263.    (setvar "OSMODE" 0)
  264.    (EAITmsg "mb_mld12" "\n" "025" ": ")   ;Konstruktionsrichtung (Return = relativ)
  265.    (setq P0 (getpoint P1))
  266.    (if (= P0 nil)(setq P0 (EAITrpt)))
  267.    (setvar "OSMODE" 0)
  268.    (setvar "ORTHOMODE" 0)
  269.    (command EAITege KName P1 "" "" P0)
  270.    (setq E1 (entlast))
  271.    (command EAITege GName P1 "" "" P0)
  272.    (setq E2 (entlast))
  273.  
  274.    (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  275.    (setq Le (getdist P1))
  276.    (while (and (/= Le nil)(/= Le 0))
  277.       (cond
  278.          ( (<= Le  8)(EAITDBL "8000024")(setq L EAITlmax GName (strcat EAITpfn "8000024S")) )
  279.          ( (<= Le 10)(EAITDBL "8000006")(setq L EAITlmax GName (strcat EAITpfn "8000006S")) )
  280.          ( (<= Le 12)(EAITDBL "8000014")(setq L EAITlmax GName (strcat EAITpfn "8000014S")) )
  281.          ( (<= Le 14)(EAITDBL "0041730")(setq L EAITlmax GName (strcat EAITpfn "0041730S")) )
  282.          ( (<= Le 16)(EAITDBL "8000007")(setq L EAITlmax GName (strcat EAITpfn "8000007S")) )
  283.          ( (<= Le 18)(EAITDBL "8000225")(setq L EAITlmax GName (strcat EAITpfn "8000225S")) )
  284.          ( (<= Le 20)(EAITDBL "0040411")(setq L EAITlmax GName (strcat EAITpfn "0040411S")) )
  285.          ( (<= Le 25)(EAITDBL "8000025")(setq L EAITlmax GName (strcat EAITpfn "8000025S")) )
  286.          ( (<= Le 30)(EAITDBL "8000231")(setq L EAITlmax GName (strcat EAITpfn "8000231S")) )
  287.          ( (<= Le 35)(EAITDBL "8000234")(setq L EAITlmax GName (strcat EAITpfn "8000234S")) )
  288.          (T          (EAITDBL "0039126")(setq L EAITlmax GName (strcat EAITpfn "0039126S")) )
  289.       )
  290.       (EAITmsg "mb_mld12" "\n" "027" " ")(princ L)(EAITmsg "mb_mld13" nil "006" nil)      ;-> gewaehlt L = EAITlmax mm
  291.       (entdel E2)
  292.       (command EAITege GName P1 "" "" P0)
  293.       (setq E2 (entlast))
  294.       (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  295.       (setq Le (getdist P1))
  296.    )
  297.  
  298.    (setq Wi (angle P1 P0)
  299.          P10 (polar P1 (+ Wi (EAITgib 180)) (+ Lk 2))
  300.          P11 (polar P1 Wi (+ 2 L)) )
  301.    (command EAITlay EAITlse "EAITstp" ""
  302.             EAITlin P10 P11 "")
  303.    (setq E3 (entlast))
  304.  
  305.    (setq BlockN (EAITbnr))
  306.    (if (= Le 0) (progn (entdel E2) (command EAITblo BlockN P1 E1 E3 "" EAITege BlockN P1 "" "" "") )
  307.                 (command EAITblo BlockN P1 E1 E2 E3 "" EAITege BlockN P1 "" "" "") )
  308.  
  309.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 3)  "" "" (+ 90 (EAITbig Wi))
  310.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  311.    )
  312.  
  313.    (EAITvarz2)
  314.    (princ)
  315. )
  316.  
  317.  
  318. (defun C:AITULSS6 (/ KName GName BName BlockN P1 P0 P10 P11 L Le Lk E1 E2 E3 Wi)
  319.    (EAITvari)
  320.    (EAITvars)
  321.    (setq EAITmen2 "p9=*")
  322.  
  323.    (setq L EAITlmax 
  324.          Lk 3.30 
  325.          KName (strcat EAITpfn "uls_m6s1")
  326.          GName (strcat EAITpfn (substr EAITnrx 1 7) "S")
  327.    )
  328.  
  329.    (setvar "ORTHOMODE" 0)
  330.    (EAITbpt EAITofsch 32 nil)
  331.    (setq P1 (getpoint))
  332.    (if (= P1 nil)(setq P1 (EAITrpt)))
  333.    (setvar "ORTHOMODE" 1)
  334.    (setvar "OSMODE" 0)
  335.    (EAITmsg "mb_mld12" "\n" "025" ": ")   ;Konstruktionsrichtung (Return = relativ)
  336.    (setq P0 (getpoint P1))
  337.    (if (= P0 nil)(setq P0 (EAITrpt)))
  338.    (setvar "OSMODE" 0)
  339.    (setvar "ORTHOMODE" 0)
  340.    (command EAITege KName P1 "" "" P0)
  341.    (setq E1 (entlast))
  342.    (command EAITege GName P1 "" "" P0)
  343.    (setq E2 (entlast))
  344.  
  345.    (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  346.    (setq Le (getdist P1))
  347.    (while (and (/= Le nil)(/= Le 0))
  348.       (cond
  349.          ( (<= Le 10)(EAITDBL "8000237")(setq L EAITlmax GName (strcat EAITpfn "8000237S")) )
  350.          ( (<= Le 12)(EAITDBL "8000240")(setq L EAITlmax GName (strcat EAITpfn "8000240S")) )
  351.          ( (<= Le 14)(EAITDBL "0041726")(setq L EAITlmax GName (strcat EAITpfn "0041726S")) )
  352.          ( (<= Le 16)(EAITDBL "8000063")(setq L EAITlmax GName (strcat EAITpfn "8000063S")) )
  353.          ( (<= Le 18)(EAITDBL "8000245")(setq L EAITlmax GName (strcat EAITpfn "8000245S")) )
  354.          ( (<= Le 20)(EAITDBL "8000008")(setq L EAITlmax GName (strcat EAITpfn "8000008S")) )
  355.          ( (<= Le 25)(EAITDBL "8000001")(setq L EAITlmax GName (strcat EAITpfn "8000001S")) )
  356.          ( (<= Le 30)(EAITDBL "8000015")(setq L EAITlmax GName (strcat EAITpfn "8000015S")) )
  357.          ( (<= Le 35)(EAITDBL "8000016")(setq L EAITlmax GName (strcat EAITpfn "8000016S")) )
  358.          ( (<= Le 40)(EAITDBL "8000115")(setq L EAITlmax GName (strcat EAITpfn "8000115S")) )
  359.          ( (<= Le 45)(EAITDBL "8000253")(setq L EAITlmax GName (strcat EAITpfn "8000253S")) )
  360.          (T          (EAITDBL "8000256")(setq L EAITlmax GName (strcat EAITpfn "8000256S")) )
  361.       )
  362.       (EAITmsg "mb_mld12" "\n" "027" " ")(princ L)(EAITmsg "mb_mld13" nil "006" nil)      ;-> gewaehlt L = EAITlmax mm
  363.       (entdel E2)
  364.       (command EAITege GName P1 "" "" P0)
  365.       (setq E2 (entlast))
  366.       (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  367.       (setq Le (getdist P1))
  368.    )
  369.  
  370.    (setq Wi (angle P1 P0)
  371.          P10 (polar P1 (+ Wi (EAITgib 180)) (+ Lk 2))
  372.          P11 (polar P1 Wi (+ 2 L)) )
  373.    (command EAITlay EAITlse "EAITstp" ""
  374.             EAITlin P10 P11 "")
  375.    (setq E3 (entlast))
  376.  
  377.    (setq BlockN (EAITbnr))
  378.    (if (= Le 0) (progn (entdel E2) (command EAITblo BlockN P1 E1 E3 "" EAITege BlockN P1 "" "" "") )
  379.                 (command EAITblo BlockN P1 E1 E2 E3 "" EAITege BlockN P1 "" "" "") )
  380.  
  381.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 4)  "" "" (+ 90 (EAITbig Wi))
  382.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  383.    )
  384.  
  385.    (EAITvarz2)
  386.    (princ)
  387. )
  388.  
  389.  
  390.  
  391. (defun C:AITULSS8 (/ KName GName BName BlockN P1 P0 P10 P11 L Le Lk E1 E2 E3 Wi)
  392.    (princ (strcat "\n\n" EAITbez1))
  393.    (EAITvari)
  394.    (EAITvars)
  395.    (setq EAITmen2 "p9=*")
  396.  
  397.    (setq L EAITlmax 
  398.          Lk 4.40 
  399.          KName (strcat EAITpfn "uls_m8s1")
  400.          GName (strcat EAITpfn (substr EAITnrx 1 7) "S")
  401.    )
  402.  
  403.    (setvar "ORTHOMODE" 0)
  404.    (EAITbpt EAITofsch 32 nil)
  405.    (setq P1 (getpoint))
  406.    (if (= P1 nil)(setq P1 (EAITrpt)))
  407.    (setvar "ORTHOMODE" 1)
  408.    (setvar "OSMODE" 0)
  409.    (EAITmsg "mb_mld12" "\n" "025" ": ")   ;Konstruktionsrichtung (Return = relativ)
  410.    (setq P0 (getpoint P1))
  411.    (if (= P0 nil)(setq P0 (EAITrpt)))
  412.    (setvar "OSMODE" 0)
  413.    (setvar "ORTHOMODE" 0)
  414.    (command EAITege KName P1 "" "" P0)
  415.    (setq E1 (entlast))
  416.    (command EAITege GName P1 "" "" P0)
  417.    (setq E2 (entlast))
  418.  
  419.    (if (/= GName (strcat EAITpfn "0038893S"))
  420.        (progn
  421.            (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)            
  422.            (setq Le (getdist P1))
  423.            (while (and (/= Le nil)(/= Le 0))
  424.               (cond
  425.                   ( (<= Le 10)(EAITDBL "8000017")(setq L EAITlmax GName (strcat EAITpfn "8000017S")) )
  426.                   ( (<= Le 12)(EAITDBL "8000259")(setq L EAITlmax GName (strcat EAITpfn "8000259S")) )
  427.                   ( (<= Le 14)(EAITDBL "8000018")(setq L EAITlmax GName (strcat EAITpfn "8000018S")) )
  428.                   ( (<= Le 16)(EAITDBL "8000019")(setq L EAITlmax GName (strcat EAITpfn "8000019S")) )
  429.                   ( (<= Le 18)(EAITDBL "8000002")(setq L EAITlmax GName (strcat EAITpfn "8000002S")) )
  430.                   ( (<= Le 20)(EAITDBL "8000003")(setq L EAITlmax GName (strcat EAITpfn "8000003S")) )
  431.                   ( (<= Le 25)(EAITDBL "8000004")(setq L EAITlmax GName (strcat EAITpfn "8000004S")) )
  432.                   ( (<= Le 30)(EAITDBL "8000009")(setq L EAITlmax GName (strcat EAITpfn "8000009S")) )
  433.                   ( (<= Le 35)(EAITDBL "8000265")(setq L EAITlmax GName (strcat EAITpfn "8000265S")) )
  434.                   ( (<= Le 40)(EAITDBL "8000010")(setq L EAITlmax GName (strcat EAITpfn "8000010S")) )
  435.                   ( (<= Le 45)(EAITDBL "8000020")(setq L EAITlmax GName (strcat EAITpfn "8000020S")) )
  436.                   ( (<= Le 50)(EAITDBL "8000268")(setq L EAITlmax GName (strcat EAITpfn "8000268S")) )
  437.                   ( (<= Le 55)(EAITDBL "8000271")(setq L EAITlmax GName (strcat EAITpfn "8000271S")) )
  438.                   ( (<= Le 60)(EAITDBL "8000011")(setq L EAITlmax GName (strcat EAITpfn "8000011S")) )
  439.                   (T          (EAITDBL "8000012")(setq L EAITlmax GName (strcat EAITpfn "8000012S")) )
  440.               )
  441.               (EAITmsg "mb_mld12" "\n" "027" " ")(princ L)(EAITmsg "mb_mld13" nil "006" nil)      ;-> gewaehlt L = EAITlmax mm
  442.               (entdel E2)
  443.               (command EAITege GName P1 "" "" P0)
  444.               (setq E2 (entlast))
  445.               (EAITmsg "mb_mld12" "\n\n" "026" ": ")   ;Neue Scraubenlaenge (Return = weiter / 0 = ohne Gewindebolzen)
  446.               (setq Le (getdist P1))
  447.            );while
  448.        );progn
  449.    );if
  450.    
  451.    (setq Wi (angle P1 P0)
  452.          P10 (polar P1 (+ Wi (EAITgib 180)) (+ Lk 2))
  453.          P11 (polar P1 Wi (+ 2 L)) )
  454.    (command EAITlay EAITlse "EAITstp" ""
  455.             EAITlin P10 P11 "")
  456.    (setq E3 (entlast))
  457.  
  458.    (setq BlockN (EAITbnr))
  459.    (if (= Le 0) (progn (entdel E2) (command EAITblo BlockN P1 E1 E3 "" EAITege BlockN P1 "" "" "") )
  460.                 (command EAITblo BlockN P1 E1 E2 E3 "" EAITege BlockN P1 "" "" "") )
  461.  
  462.    (command EAITege (strcat EAITpfn "EAITinfo") (polar P1 (+ Wi (EAITgib 135)) 5)  "" "" (+ 90 (EAITbig Wi))
  463.                     EAITbez1 EAITbez2 EAITlie1 EAITlie2 EAITwer1 EAITwer2 (rtos EAITl1 2 1) (rtos EAITb1 2 1) EAITnr
  464.    )
  465.  
  466.    (EAITvarz2)
  467.    (princ)
  468. )
  469. (princ)
  470.